constant kOffest := 2;

InstallScript := func(packageFrame, removeframe) begin
	getroot().calendar.(ensureinternal('viewSetUpformScript)) := func() begin
		userConfiguration.calendarStartTime:=min(date(time()).hour*60-(kOffest*60), 15*60);
		inherited:?viewSetUpformScript();
	end;

end;

RemoveScript := func(packageFrame) begin
	//getroot().calendar.viewSetUpformScript := func() begin
	//	inherited:?viewSetUpformScript();
	//end;
	
	// i think this is better
	removeslot(getroot().calendar, 'viewSetUpformScript);

end;
